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— file: Output. mesa 

— edited by Sandman July 17, 1977 6:00 PM 

DIRECTORY 

IODefs: FROM "iodefs", 
OutputDefs: FROM "outputdef s'\ 
SegmentDefs: FROM "segmentdefs", 
StreamDefs: FROM "streamdef s" , 
StringDefs: FROM "stringdef s'\ 
TimeDefs: FROM "timedefs"; 

Output: PROGRAM 

IMPORTS IODefs, SegmentDefs, StreamDefs, StringDefs, TimeDefs 

EXPORTS OutputDefs * 
PUBLIC BEGIN 

outStream: StreamDefs. StreamHandle ♦• NIL; 

PutTab: PROCEDURE * BEGIN PutChar[IODef s .TAB] ; RETURN END; 
PutCR: PROCEDURE » BEGIN PutChar[IODef s .CR] ; RETURN END; 

PutChar: PROCEDURE [c: CHARACTER] = 
BEGIN 

outStream.put[outStream,c]; 
END; 

PutString: PROCEDURE [s:STRING] = 
BEGIN 

i: CARDINAL; 
FOR i IN [0. .s. length) DO 

outStream. put [outStream, s[i]]; 

ENDLOOP; 
END; 

PutTime: PROCEDURE [t: TimeDefs. PackedTime] - 
BEGIN 

OPEN TimeDefs; 
s: STRING <- [20]; 
AppendDayTime[s,UnpackDT[t]]; 
PutString[s]; 
RETURN 
END; 

PutNumber: PROCEDURE [val: CARDINAL, format: IODefs . Number Format] 
BEGIN 

IODefs. OutNumber[outSt ream, val .format]; 
RETURN 
END; 

PutDecimal: PROCEDURE [val: CARDINAL] = 
BEGIN 

IODefs. OutNumber[outSt ream, val , [10, FALSE , FALSE, 1]]; 
RETURN 
END; 

PutOctal: PROCEDURE [val: UNSPECIFIED] = 
BEGIN 

IODefs. OutNumber [outStream, val , [8 , FALSE .TRUE , 1]]; 
IF val ~IN[0..7] THEN ou tStream. put[ou tS tream, ' B] ; 
RETURN 
END; 

OpenOutput: PROCEDURE [root: STRING, ext: STRING] = 
BEGIN OPEN StringDefs, SegmentDefs; 
i: CARDINAL; 
name: STRING <- [40]; 
AppendStr ing[name , root] ; 
FOR i IN [0. .name. length) DO 

IF name[i] = ' . THEN 

BrGIN name. length «- i; EXIT END; 

END! OOP: 
AppendString[n ame .ext]; 
outStream *- StreamDefs .CreateByteStream[ 

NewT i le[name, Wr i te+Append , Def aul tVers ion] ,Wr i te+Append] ; 
TND; 
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CloseQutput: PROCEDURE - 
BEGIN 

ou tS t ream. destroy[outSt ream]; 
outStream ♦• NIL; 
END; 

END... 



